home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI101.ASC < prev    next >
Text File  |  1992-08-12  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL                               NUMBER : 101
  10.   VERSION : ALL
  11.        OS : CP/M-80, CP/M-86, MS-DOS, PC-DOS
  12.      DATE : April 7, 1986                                PAGE : 1/1
  13.     TITLE : COMMAND LINE MANIPULATION
  14.  
  15.  
  16.  
  17.  
  18.   This program allows access to the command line buffer on  MS-DOS
  19.   computers. An absolute address variable is located at offset 80
  20.   hex past the start of the code segment. This is the location of
  21.   the DOS command line buffer. This program as it stands will on
  22.  
  23.  
  24.   program CommandLine;
  25.   type  string127  = string[127];
  26.  
  27.   var   Buffer   : string127;
  28.         I        : integer;
  29.  
  30.     procedure CmdLine(var Buffer : string127); {procedure to get}
  31.                                                {command line}
  32.     var   ParamBuff : string127 absolute cseg:$80;
  33.     begin
  34.       buffer : = ParamBuff;          {Assign the command to}
  35.     end;                             {the parameter buffer}
  36.  
  37.   begin { Main }
  38.     CmdLine(Buffer);          { Get command line }
  39.     For I := 1 to 6 Do        { Space down the screen 6 lines. }
  40.       writeln;                { Write the command buffer }
  41.     writeln('l', Buffer,'l');
  42.     Delay(3000);
  43.   end.
  44.  
  45.  
  46.   DISCLAIMER: You have the right to use this technical information
  47.   subject to the terms of the No-Nonsense License Statement that
  48.   you received with the Borland product to which this information
  49.   pertains.
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.